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BASSNAME _AS 16-Sep-1984 50:11 AX-11 Bliss-32 V4.0-74 
| 12-08-1382 90:39:35 BASRTL. SRCIBASNAMEAS .B 2:1 
H 1 608) MODULE BASSNAME_AS ( ! Change a file's nase 
: § pe ve = '1-002' ! File: BASNAMEAS.B32 
rc 0004 1 BEGIN 
: $ 0006 ' i eeeeeererrereereererterenenerereerereeerereerereeereeeeeeeeeeeeeeeereeeerere 
3 ‘® ® 
$ 8 $008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
F 9 4484 1 '® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 sid : . ALL RIGHTS RESERVED. 
; ig 0012 1 it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 1 01 1 '* ONLY IN ACCORDANCE WITH THE TERM SUC LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE ANY OTHER * 
: 15 gore 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 Sig 1 !e THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
5 \ SEA : e RANSFERRED. ® 
. H ¥ ® 
: 19 §019 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
: $9 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 4 1 ; :* CORPORATION. . 
P Hel 
3 $§ 00 i 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $e oose } + SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
: 26 9026 is . 
3 27 002 1 Seer e ee kere eRe eA AAA EAEAAAAAA ETAT A TARA TETEAEAEERARAKEERRAREREEREA eee 
; 8 0028 1! 
: 9 0029 1 
: 0 0030 1 !+4+ 
3 1 itd : FACILITY: BASIC-PLUS-2 Miscellaneous 
; 33 0033 1 | ABSTRACT: 
; «634 0034 1! 
a; 2» 0035 1! This module implements the BASIC NAME ... AS statement, 
; » 0036 1! which renames a file. 
a 0037 1! 
; $3 o038 : ENVIRONMENT: VAX=-11 User Mode 
: ra ne ; AUTHOR: John Sauter, CREATION DATE: 28-FEB-1979 
> 42 0042 1 | MODIFIED BY: 
; 06 643 0045 1! 
s 44 044 1 ! 1-001 = Original. JBS 28-FEB-1979 
; «645 045 1 ! 1-002 - Use BASSSSTOP_RMS for errors. JBS 22-AUG-1979 
: 46 0046 1 !-- 
3; 647 0047 1 
: 48 0048 1 !'<BLF/PAGE> 


12 
BASSNAME _AS 18-5 1984 00:50:11 AX-11 Bliss-32 V4.0-7 
1-00 1 730p-1$8e 99:39:33 BASRTL. RC IBASNAMEAS.. 


2 
; ° p08 , f 
H 50 1 ! SWITCHES: 
fe hese 8b 
: : 38 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 28 055 1! 
: 7 B28 1 ! LINKAGES: 
; 057 1! 
. 058 1! NONE 
; 0059 1! 
3; .6 (6) BRe0 1 ! TABLE OF CONTENTS: 
: o¢ 061 1! 
» ¢ 0062 1 
; 64 0065 1 FORWARD ROUTINE 
3 o? 0 rt: ! BASSNAME_AS : NOVALUE; ! Change a file's name 
3; 67 0066 1! 
>; 68 0067 1 ! INCLUDE FILES: 
>; 69 poe8 - 3 
; 0069 1 
: a sth } REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 
ae. Q166 1 LIBRARY *RTLSTARLE'; ! System definitions 
; «676 0167 1 
te 0168 1! 
: 76 0169 1 ! MACROS: 
oo or 0170 1! 
; «678 0171 1! NONE 
; Oi76 1! 
; & 0175 1 ! EQUATED SYMBOLS: 
3 1 0174 1! 
: 2 0175 1! NONE 
; 3 378 7! 
: 4 gi7 1 ! PSECTS: 
; 178 1! 
; a6 ta } DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
; «688 0181 1 ! OWN STORAGE: 
3; 689 Bis 1! 
; 0183 1! NONE 
. 0184 1! 
; RR 0185 1 ! EXTERNAL REFERENCES: 
; 9 8186 2. 
; 694 187 1 
; 95 0188 1 EXTERNAL ROUTINE 
; 38 at 34 ’ BASSSSTOP_RMS : NOVALUE; ! Signals BASIC RMS error 
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N 12 
BASSNAME_AS 16-Sep-1984 00:50:11 AX-11 BL P 4 
1-002 mets Pit See YEE bt tg SS Cet oe ~~ 1 
> 15 024 SNAM_ INIT (NAM D_NAM) ; 
i 12 pgng SNAMCINIT (NAM = QEUTN 
; 138 0 30 RENAME_RESULT = SRENAME MéLpFAB = OLD_FAB, NEWFAB = NEW_FAB); 
; 160 0 3 IF ( NOT .RENAME_RESULT) THEN BASSSSTOP_RMS (.OLD_FILE, .OLD_FAB CFABSL_STSJ, .OLD_FAB CFABSL_STVJ); 
: 16¢ 0984 RETURN; 
: 16 0255 1 END; ! end of BASSNAME_AS 
TITLE BASSNAME_AS 
[IDENT \1=002\ 
.EXTRN BASSSSTOP_RMS, SYSSRENAME 
.PSECT _BASSCODE,NOWRT, SHR, PIC,2 
007¢ 00000 -ENTRY BASSNAME_AS, Save R2,R3,R4,R5,R6 : 0191 | 
5E FEAO CE 9E 00002 MOVAB =352(SP); : 
0050 = 8F 00 6E me 00 2c 90007 MOVCS #0, (SP), #0, #80, SRMS_PTR t 0243 
BO AD 5003 8F B0 00010 MOVW #20485. SRMS_PTR : 
C6 AD 02 90 00016 MOVB #2, $RMS_PTR322 : 
CF AD 02 90 OOOTA MOVB #2, SAAS. PTR+31 s 
D8 AD 60 AE 3 00018 MOVAB OLD_NAM, $RMS_PTR+40 ; 
56 04 AC dO 0002 MOVL  OLD~ ite, R6 ~ : 
DC AD 04 AB DO 990¢7 MOVL 4 (RB), $RMS PTRe44 : 
E46 AD 66 90 0002¢ MOVE (R6), $RMS_PTR+52 ; | 
0050 = 8F 00 6E eal 00 2¢ 90030 MOVCS #0, (SP), #0, #80, SRMS_PTR + 0247. 
FF60 CD 5003 8F BO OO03A MOVW #20483, SRMS_PTR : 
FF76 «CD 02 90 00041 MOVB #2, $RMS -PTRY 2 : 
FF7F CD 02 90 00046 MOVB #2, S$RMS~PTR+31 ; 
88 AD 6E 9E 00048 MOVAB NEW_NAM “SRN ~PTR+40 : 
50 08 AC DO 0004F MOVL NEW"FILE, ; 
8C AD 04 AO DO 00053 MOVL 4(R0), shins PTR? 44 : 
94 AD 60 90 00058 MOVE (RO), $RMS_PTR+5 ; 
0060 8F 00 6E am. 00 2¢ 0005¢ MOVCS #0, (SP), a0. #96, SRMS_PTR > 0248 | 
60 AE 6002 BF g0 0065 ovw 424578 $RMS_PTR : 
0060 8F 00 6E 00 C 0068 MOVCS (SP), #07 #96, SRMS_PTR ; 0249 
6E 6002 8F BO $048 MOVW #24578, S$RMS_PTR : 
FF60 CD 9F 00078 PUSHAB NEW_FAB : 0250 
—E 7C 0007C CLRQ 0 =(S P) : 
BO AD 9F 0007E PUSHAB OLD. F ; 
000000006 00 04 FB 00081 CALLS 4&4, ~SYSS$RENAM ; 
0D 50 8 00088 BLBS RENAME» R cur. > 0252 
7E B8 AD 7D 0008B MOVa SULT tp} F 
56 DD 0008F PUSHL : 
000000006 00 03 FB 00091 CALLS #3, "BASSSSTOP_AMS : 
04 00098 1$: RET > 0255 
; Routine Size: 153 bytes, Routine Base: _BASSCODE + 0000 


: 164 0256 1 


— 


——————_------ 


r } eh a 
SNAME_AS -Sep-19 27 AX-11 Bliss-32 V4.0 Page 

4 att 14- ~ten> 1984 90: 29:33 BASRTL.SRC BASNAMEAS.. 5 2:1 . 

: 165 0257 1 END ! end of module BASSNAME_AS 

> 166 0954 1 : - 

3; «167 0259 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: _BASSCODE 153 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

3 a as el eC EE grr ain: Symbols ooc<---- Pages Processing 

; File Total Loaded Percent Mapped Time 

; _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 58 0 581 00:01.0 

; OLISS/CHECK= (FIELD, INITIAL ,OPTIRIZE)/NOTRACE/LIS#L 1SS:BASNANEAS/0BJ=0B)S :BASNAMEAS MSRC$:BASNAME AS/UPDATE=(ENH$:BASNAMEAS 


Size: 153 code + 0 data bytes 
Run Time: 0:07. 
Elapsed Time: 00:17.5 
Lines/CPU Min: 2179 
Lexemes/CPU-Min: 46451 
ponery Used: 95 pages 

ation Complete 
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